SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TCPRRE_GAST_I01]  
/*-------------------------------------------------------*/  
/*-- Empresa  :  OFISIS S.A.          --*/  
/*-- Cliente     :  OFISIS           --*/  
/*-- Sistema       :  OFITESO           --*/  
/*-- Modulo       :  EMPRESA              --*/  
/*-- Programa    :  PRE-RENDICION DE GASTOS     --*/  
/*-- Nombre SP  :  SP_TCPRRE_GAST_Q01         --*/  
/*-- Desarrollado x :  Carlos Marquez Escobar      --*/  
/*-- Fecha   :  23/11/2004           --*/  
/*-- Base de Datos :  MICROSOFT SQL SERVER 8.0    --*/  
/*-------------------------------------------------------*/  
/*-------------------------------------------------------*/  
/*---Modificado 1 por     :                            --*/  
/*---Fecha Modificaci©n   :                            --*/   
/*---Detalle Modificaci©n :                            --*/  
/*-------------------------------------------------------*/  
/*-------------------------------------------------------*/  
/*---Comentarios                                       --*/  
/*---                                                  --*/  
/*---                                                  --*/  
/*-------------------------------------------------------*/  
/*-------------------------------------------------------*/  
/*---Drop Proc SP_TCPRRE_GAST_I01                     --*/  
/*---Grant all on SP_TCPRRE_GAST_I01 to public         --*/   
/*--- SP_TCPRRE_GAST_I01 '01', '001', 'R01', '2003/10/10', '' --*/  
/*-------------------------------------------------------*/  
  
@ISCO_EMPR   TD_VC_002,  
@ISCO_USUA   TD_VC_008,  
@ISCO_UNID_CONC  TD_VC_003,  
@IDFE_PRRE_GAST  TD_DT_001,  
@ISCO_EMPR_DEST  TD_VC_002,  
@ISAA_OPER_DEST  TD_VC_004,  
@ISMM_OPER_DEST  TD_VC_002,  
@ISCO_BANC_DEST  TD_VC_003,  
@ISNU_CNTA_DEST  TD_VC_020,  
@ISCO_CAJA_DEST  TD_VC_008,  
@ISNU_COMP_DEST  TD_VC_008,  
@ISTI_ENTI_GENE  TD_VC_001,  
@ISCO_ENTI_GENE  TD_VC_020,  
@ISTI_ENTI_APRO  TD_VC_001,  
@ISCO_ENTI_APRO  TD_VC_020,  
@ISDE_OBSE  TD_VC_100,  
@ISTI_DOCU_ENRE  TD_VC_003,  
@ISNU_DOCU_ENRE  TD_VC_020,  
@OSNU_PRRE_GAST   TD_VC_010 OUTPUT  
  
/*  
Exec SP_TCPRRE_GAST_I01   
:sCO_EMPR,   
:sCO_USUA,   
:sCO_UNID,   
:FTEEMAA.dfFE_PRRE_GAST,    
:FTEEMAA.sCO_EMPR_DEST,   
:FTEEMAA.dfAA_OPER_DEST,    
:FTEEMAA.dfMM_OPER_DEST,  
:FTEEMAA.dfCO_BANC,   
:FTEEMAA.dfNU_CNTA_BANC,   
:FTEEMAA.dfCO_CAJA,   
:FTEEMAA.dfNU_COMP_DEST,   
:FTEEMAA.dfTI_ENTI_GENE,   
:FTEEMAA.dfCO_ENTI_GENE,   
:FTEEMAA.dfTI_ENTI_APRO,   
:FTEEMAA.dfCO_ENTI_APRO,  
:FTEEMAA.dfDE_OBSE,   
:FTEEMAA.dfTI_DOCU_ENRE,   
:FTEEMAA.dfNU_DOCU_ENRE,   
:FTEEMAA.dfNU_PRRE_GAST",   
":FTEEMAA.dfNU_PRRE_GAST" )  
*/  
AS  
  Declare  
  @VSCO_GRUP_APRO  TD_VC_008,   
  @VSNU_PRRE_GAST  TD_VC_010,  
  @VNNU_PRRE_GAST  Int  
  
  
  Begin Tran SP_TCPRRE_GAST_I01  
  
  
 Select  @VNNU_PRRE_GAST =  IsNull( Max( Convert(Int, NU_PRRE_GAST )), 0) + 1  
 From    TCPRRE_GAST  
 Where  CO_EMPR = @ISCO_EMPR  
  
 Select  @VSNU_PRRE_GAST =  Convert(Varchar(10), IsNull(@VNNU_PRRE_GAST,1) )  
  
 Select  @OSNU_PRRE_GAST =  Replicate('0', 8 - Len (@VSNU_PRRE_GAST)) +  Ltrim(Rtrim(@VSNU_PRRE_GAST))  
  
  
  
 Select @VSCO_GRUP_APRO = CO_GRUP  
 From TMUSUA  
 Where CO_USUA = @ISCO_USUA  
   
  
 Insert Into TCPRRE_GAST (CO_EMPR, CO_UNID_CONC, NU_PRRE_GAST, FE_PRRE_GAST,  
   CO_EMPR_DEST, AA_OPER_DEST, MM_OPER_DEST,  
  CO_BANC_DEST, NU_CNTA_DEST, CO_CAJA_DEST,  
   NU_COMP_DEST, DE_OBSE,   
  CO_GRUP_APRO, TI_ENTI_GENE, CO_ENTI_GENE, TI_ENTI_APRO, CO_ENTI_APRO,   
  TI_SITU, ST_APRO )  
  Values (@ISCO_EMPR, @ISCO_UNID_CONC, @OSNU_PRRE_GAST, @IDFE_PRRE_GAST,  
  @ISCO_EMPR, @ISAA_OPER_DEST, @ISMM_OPER_DEST,  
  @ISCO_BANC_DEST, @ISNU_CNTA_DEST, @ISCO_CAJA_DEST,   
  @ISNU_COMP_DEST, @ISDE_OBSE,   
  @VSCO_GRUP_APRO, @ISTI_ENTI_GENE, @ISCO_ENTI_GENE, @ISTI_ENTI_APRO, @ISCO_ENTI_APRO,  
  'ACT', 'N' )  
  
  If @@error <> 0  
     Begin  
   Rollback tran TCPRRE_GAST  
     Return  
     End  
  
  
  COMMIT TRAN SP_TCPRRE_GAST_I01  
  
Return  
/*------------------------------ FIN ------------------------------*/  

GO
